
include ffl/hct.fs
include ffl/hci.fs



\ Create the hash table in the dictionary with an initial size of 10

10 hct-create params-table


\ Add the mountains (in meters)

8300 s" mount everest" params-table hct-insert
4819 s" mont blanc"    params-table hct-insert
5642 s" mount elbrus"  params-table hct-insert

\ Get a mountain height

s" mount everest" params-table hct-get [IF]
  .( Mount everest: ) . cr
[ELSE]
  .( Unknown mountain) cr
[THEN]
